home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 3: CDPD 3
/
Almathera Ten on Ten - Disc 3: CDPD3.iso
/
ab20
/
ab20_archive
/
datacomm
/
vltphone.lzh
/
bix.vlt
< prev
next >
Wrap
Text File
|
1990-08-07
|
1KB
|
49 lines
/* Bix logger */
address vlt
call openport(bixport)
"trap add autodeactivate install 'fier' [rx (address BIXPORT TI)]"
"trap add 11 instal 'in:' [rx (address BIXPORT BI)]"
"trap add 12 install 'name:' [rx (address BIXPORT BI)]"
"trap add 13 autodeactivate install 'NO CARRIER' [rx (address BIXPORT DX)]"
"trap add 14 autodeactivate install 'me?' [rx (address BIXPORT LI)]"
"trap add 15 autodeactivate install 'ord:' [rx (address BIXPORT PW)]"
"trap add 16 autodeactivate install 'tymnet: call cleared by request' [rx (address BIXPORT CC)]"
call delay 150
send ""
do dummy1 = 1
do dummy2 = 1
token = getpkt(bixport)
if token = '0000 0000'x then leave
msg = getarg(token)
call reply(token)
select
when msg = ti then send 'a'
when msg = bi then send 'xxbixyyy'
when msg = li then send 'elian'
when msg = CC then do
message '{BIX Cleared the call!}'
leave dummy1
end
when msg = pw then do
send 'xxxxxxxxxx'
leave dummy1
end
when msg = dx then message '{Tymnet hung up!}'
end
end
call waitpkt(bixport)
end
call closeport(bixport)
"trap remove {11}"
"trap remove {12}"
"trap remove {13}"
"trap remove {14}"
"trap remove {15}"
"trap remove {16}"
exit 0